week3_practice for ggplot and ggmap
沈祐珍
獨立特色書店的點擊數與其空間關係圖
各書店的資訊：
顯示前6個和後6個
library(jsonlite)
url <- "https://cloud.culture.tw/frontsite/trans/emapOpenDataAction.do?method=exportEmapJson&typeId=M"
my.data <- fromJSON(url)| name | address | website | hitRate |
|---|---|---|---|
| 公館舊書城 | 汀州路3段130號 | 900 | |
| 古今書廊 | 羅斯福路3段244巷17號及23號 | pnpbook.blogspot.tw | 691 |
| 胡思二手書店(公館店) | 羅斯福路3段308之1號2 樓(公館捷運站4號出口)(公館店出入口位於羅斯福路三段308-1號本棟正後方，請由兩側巷子繞進) | http://www.whosebooks.com.tw | 803 |
| 茉莉二手書店(臺大店) | 羅斯福路四段40巷2號一樓 | http://www.mollie.com.tw/Store_1.asp | 2056 |
| 晶晶書庫 | 羅斯福路3段210巷8弄8號1樓 | http://www.ginginbooks.com | 503 |
| 信誼小太陽親子書房(臺北重慶店) | 重慶南路 2 段 75 號 1 樓 | http://www.hsin-yi.org.tw/kidStore | 1128 |
| . | |||
| . | |||
| . |
| name | address | website | hitRate | |
|---|---|---|---|---|
| 82 | 佩績的店 | 山東街61號 | http://www.peggy-bookstore.com | 832 |
| 83 | 小陶壺書坊 | 隘寮村11鄰中清巷5號 | 53 | |
| 84 | 鶵鳥藝文空間 | 南港村9鄰尖山腳4號 | http://juvart.pixnet.net/blog | 30 |
| 85 | 雨果部落書坊 | 景美村三棧38之1號 | 9 | |
| 86 | 松風閣茶館 | 埔邊16號 | 7 | |
| 87 | 刺鳥咖啡獨立書店 | 復興村13鄰222號(12據點) | 9 |
按點擊數由大至小排序各書店的點擊數：
顯示前6個和後6個
| name | address | website | hitRate | |
|---|---|---|---|---|
| 4 | 茉莉二手書店(臺大店) | 羅斯福路四段40巷2號一樓 | http://www.mollie.com.tw/Store_1.asp | 2056 |
| 32 | 水木書苑 | 光復路2段101號（清華大學風雲樓一樓） | http://www.nthubook.com.tw | 1989 |
| 22 | 古原軒書店 | 建國南路2段157號 | 1424 | |
| 7 | 下北沢世代 | 和平西路二段141號2樓之1 | 1394 | |
| 11 | 永樂座書店 | 建國南路二段123巷6號 | http://eirakuza0730.pixnet.net/blog | 1365 |
| 8 | 田園城市生活風格書店 | 中山北路2段72巷6號 | http://www.gardencity.com.tw | 1358 |
| . | ||||
| . | ||||
| . |
| name | address | website | hitRate | |
|---|---|---|---|---|
| 54 | 吾家書店 | 崇明路367號 | 10 | |
| 66 | 旅二手概念書店 | 神農路一段1號 | http://blog.roodo.com/voyagebookstore | 10 |
| 85 | 雨果部落書坊 | 景美村三棧38之1號 | 9 | |
| 87 | 刺鳥咖啡獨立書店 | 復興村13鄰222號(12據點) | 9 | |
| 78 | 曬書店×新營市民學堂 | 中山路93-2號2樓 | http://2booksite.blogspot.com/ | 8 |
| 86 | 松風閣茶館 | 埔邊16號 | 7 |
ggplot2 and ggmap
library(plotly)## Loading required package: ggplot2##
## Attaching package: 'plotly'## The following object is masked from 'package:ggplot2':
##
## last_plot## The following object is masked from 'package:stats':
##
## filter## The following object is masked from 'package:graphics':
##
## layoutlibrary(ggmap)##
## Attaching package: 'ggmap'## The following object is masked from 'package:plotly':
##
## windmy.data$longitude<-as.numeric(my.data$longitude)
my.data$latitude<-as.numeric(my.data$latitude)
twmap <- get_map(location = c(121.53,25.08), zoom = 12, maptype = 'roadmap')## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=25.08,121.53&zoom=12&size=640x640&scale=2&maptype=roadmap&language=en-EN&sensor=falsetwmap0 <- ggmap(twmap, extent = 'device')+ #extent = 'device' 滿版
geom_point(data = my.data,
aes(x = longitude, y = latitude, colour = hitRate),
size = 9) +
scale_color_continuous(low = "yellow", high = "black")+
guides(size = FALSE)## Warning: `panel.margin` is deprecated. Please use `panel.spacing` property
## insteadtwmap0## Warning: Removed 53 rows containing missing values (geom_point).
## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=25.05,121.53&zoom=13&size=640x640&scale=2&maptype=roadmap&language=en-EN&sensor=false## Warning: `panel.margin` is deprecated. Please use `panel.spacing` property
## instead## Warning: Removed 55 rows containing missing values (geom_point).
## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=25.02,121.53&zoom=15&size=640x640&scale=2&maptype=roadmap&language=en-EN&sensor=false## Warning: `panel.margin` is deprecated. Please use `panel.spacing` property
## instead## Warning: Removed 66 rows containing missing values (geom_point).
資料來源：政府資料開放平台–文化部收錄獨立特色書店的資料
Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.